home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / format&printf / printf.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  91 lines
  1. (*------------------------------------------
  2.  
  3.   :Program.     Printf
  4.   :Author.      Dieter Bogdoll [db]
  5.   :Address.     SMail: Gudrunstr. 7, D-8000 München 19
  6.   :Address.     EMail: landon@amc.zer
  7.   :Address.     EMail: 2:246/221.3@fidonet
  8.   :Address.     EMail: bogdoll@informatik.tu-muenchen.de
  9.   :Version.     V1.0
  10.   :Date.        20-Feb-1993
  11.   :Copyright.   Public Domain
  12.   :Language.    Oberon
  13.   :Translator.  Amiga Oberon 3.00d
  14.   :Support.     Format aus io.mod, Printf: Volker Rudolph, hartmut Goebel [hG]
  15.   :Contents.    stellt Printf zur verfügung ähnlich wie in C
  16.   :Remarks.     Formatiersteuerung siehe Format aus io.mod
  17.   :Bugs.        nicht ausfuehrlich getestet
  18.   :History.     V0.0   [db] 15-Feb-1993 : Erstellt
  19.   :History.     V1.0   [db] 20-Feb-1993 : Gebrauchsfertig
  20.  
  21. --------------------------------------------*)
  22. MODULE Printf;
  23.  
  24. (* $OvflChk- $RangeChk- $NilChk- $ReturnChk- $CaseChk- *)
  25.  
  26. IMPORT f:Format;
  27.  
  28. TYPE
  29.   wproc = PROCEDURE(a:ARRAY OF CHAR);
  30.  
  31. VAR
  32.   writeProc* : wproc;
  33.  
  34. PROCEDURE Printf0*(a:ARRAY OF CHAR);
  35.   VAR hstr : ARRAY 256 OF CHAR;
  36.   BEGIN
  37.     f.Format0(hstr, a);
  38.     writeProc(hstr);
  39. END Printf0;
  40.  
  41. PROCEDURE Printf1*(a:ARRAY OF CHAR; d1:LONGINT);
  42.   VAR hstr : ARRAY 256 OF CHAR;
  43.   BEGIN
  44.     f.Format1(hstr, a, d1);
  45.     writeProc(hstr);
  46. END Printf1;
  47.  
  48. PROCEDURE Printf2*(a:ARRAY OF CHAR; d1,d2:LONGINT);
  49.   VAR hstr : ARRAY 256 OF CHAR;
  50.   BEGIN
  51.     f.Format2(hstr, a, d1, d2);
  52.     writeProc(hstr);
  53. END Printf2;
  54.  
  55. PROCEDURE Printf3*(a:ARRAY OF CHAR; d1,d2,d3:LONGINT);
  56.   VAR hstr : ARRAY 256 OF CHAR;
  57.   BEGIN
  58.     f.Format3(hstr, a, d1,d2,d3);
  59.     writeProc(hstr);
  60. END Printf3;
  61.  
  62. PROCEDURE Printf4*(a:ARRAY OF CHAR; d1,d2,d3,d4:LONGINT);
  63.   VAR hstr : ARRAY 256 OF CHAR;
  64.   BEGIN
  65.     f.Format4(hstr, a, d1,d2,d3,d4);
  66.     writeProc(hstr);
  67. END Printf4;
  68.  
  69. PROCEDURE Printf5*(a:ARRAY OF CHAR; d1,d2,d3,d4,d5:LONGINT);
  70.   VAR hstr : ARRAY 256 OF CHAR;
  71.   BEGIN
  72.     f.Format5(hstr, a, d1,d2,d3,d4,d5);
  73.     writeProc(hstr);
  74. END Printf5;
  75.  
  76. PROCEDURE Printf6*(a:ARRAY OF CHAR; d1,d2,d3,d4,d5,d6:LONGINT);
  77.   VAR hstr : ARRAY 256 OF CHAR;
  78.   BEGIN
  79.     f.Format6(hstr, a, d1,d2,d3,d4,d5,d6);
  80.     writeProc(hstr);
  81. END Printf6;
  82.  
  83. PROCEDURE Printf7*(a:ARRAY OF CHAR; d1,d2,d3,d4,d5,d6,d7:LONGINT);
  84.   VAR hstr : ARRAY 256 OF CHAR;
  85.   BEGIN
  86.     f.Format7(hstr, a, d1,d2,d3,d4,d5,d6,d7);
  87.     writeProc(hstr);
  88. END Printf7;
  89.  
  90. END Printf.
  91.